home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / ng-weird.g < prev    next >
Text File  |  1998-05-22  |  2KB  |  67 lines
  1. (game-module "ng-weird"
  2.   (blurb "Generates random weird names")
  3.   )
  4.  
  5. ;;; This is a generic "pronounceable name" generator.
  6. ;;; Doesn't have any particular flavor, although the weights are
  7. ;;; tilted towards English.
  8.  
  9. (namer generic-names (grammar root 10
  10.   (root (or 5 (syllable " " root)
  11.            30 (syllable syllable)
  12.            20 (syllable syllable syllable)
  13.            50 (syllable root)))
  14.   (syllable (or (start vowel) (vowel end) 3 (start vowel end)))
  15.   (start (or 3 initdiph 7 consonant))
  16.   (end (or 2 enddiph 8 consonant))
  17.   (vowel (or 5 a 9 e 2 i 3 o 2 u y))
  18.   (consonant (or
  19.      2 b 2 c 3 d 2 f 2 g 3 h   j 2 k 3 l 3 m
  20.      6 n 3 p 4 r 5 s 9 t 2 v 2 w   x       z))
  21.   (initdiph (or 
  22.     bl cl    fl gl kl pl sl
  23.     br cr dr fr gr kr pr    3 tr wr 
  24.     3 ch ph rh 3 sh 3 th wh
  25.     2 sm 2 sp 4 st sw
  26.     ))
  27.   (enddiph (or
  28.     lb ld lf lg lk ll lm ln lp    ls lt
  29.     rb rd rf rg rk rl rm rn rp rr rs rt
  30.     mp
  31.     3 nd 2 ng nk 3 nt
  32.     gh
  33.     ))
  34. ))
  35.  
  36. (namer short-generic-names (grammar root 10
  37.   (root (or 10 (syllable " " (capitalize root))
  38.            50 (syllable syllable)
  39.            5 (start vowel end)
  40.            5 (syllable syllable syllable)
  41.            5 (syllable root)))
  42.   (syllable (or (start vowel) (vowel end) 3 (start vowel end)))
  43.   (start (or 1 initdiph 7 initconsonant))
  44.   (end (or 1 enddiph 8 endconsonant))
  45.   (vowel (or 5 a 9 e 2 i 3 o 2 u y))
  46.   (initconsonant (or
  47.      2 b 2 c 3 d 2 f 2 g 3 h   j 2 k 3 l 3 m
  48.      6 n 3 p 4 r 5 s 9 t 2 v 2 w         z))
  49.   (endconsonant (or
  50.      2 b 2 c 3 d 2 f 2 g      2 k 3 l 3 m
  51.      6 n 3 p 4 r 5 s 9 t 2 v 2 w   x       z))
  52.   (initdiph (or 
  53.     bl cl    fl gl kl pl sl
  54.     br cr 2 dr fr gr kr 2 pr    3 tr 2 wr 
  55.     3 ch ph rh 3 sh 3 th wh
  56.     2 sm 2 sp 4 st sw
  57.     ))
  58.   (enddiph (or
  59.     ld lf lk ll lm ln lp    ls lt
  60.     rb 2 rd rf rg rk rl rm rn rp rr rs 2 rt
  61.     2 mp
  62.     3 nd 2 ng nk 3 nt
  63.     gh
  64.     ))
  65. ))
  66.  
  67.